From: YAMAMOTO Mitsuharu Date: Mon, 7 May 2007 08:06:30 +0000 (+0000) Subject: (mac-ts-unicode-for-key-event): Check if text is available. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~534^2~5^2~203 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6ee67467d59374c17bc0916626155f4ded41ee21;p=emacs.git (mac-ts-unicode-for-key-event): Check if text is available. --- diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 51274e6f5be..6370b40d367 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -2104,7 +2104,8 @@ either in the current buffer or in the echo area." (coding (or (cdr (assq (car script-language) mac-script-code-coding-systems)) 'mac-roman))) - (mac-unread-string (mac-utxt-to-string text coding)))) + (if text + (mac-unread-string (mac-utxt-to-string text coding))))) ;; kEventClassTextInput/kEventTextInputUpdateActiveInputArea (define-key mac-apple-event-map [text-input update-active-input-area]